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GENERAL DESCRIPTION 


Perograaesing applications are written in the Cobot tanguage as 
specified in the B1800/817C0 Systems Cobot Reference Manual. The 
source tanguage therein described is the USA Standard Cobol,» 
X3.23°1968 to which Burroughs extensions have been added. The 
Cobot Coapiter reads this scurce program and transtates it into a 
set of S-Instructions described in the Cobol S-Language Product 
Specification #2201 67239. 


RELATED PUBLICATIONS 


TITLE | | NUMBER 
Cobot Coapiler Logic 2212 5397 
Cobot S-Language 2201 6729 
81800/81700 Cobol Reference Manual 1057197 


STRATEGY OF COMPILATION 


Upon reading the source program» the initial parser distributes 
inforaation about each source image to various work files. These 
work files are then transformed by a series of "passes" or phases 
until enough inforgsation about each basic eleaent of the prograsn 
is obtained. At that time a complete syntax check is 
accoaplished. If there were no syntax errors up to and including 
the syntax checking phase» the code generation phase is invoked» 
otherwise this phase is omitted. The final phase builds the code 
file on disk if» indeed» code generation took place. In 
addition» a variety of reporting is produced according to the 
$-Option Cards included with the compilation card deck. 
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BURROUGHS CORPORATION COMPANY CONF IOENTIAL 

COMPUTER SYSTEMS GROUP B1800/B81700 CCBOL COMPILER 

SANTA BARBARA PLANT P.S- 2212 S314 CC) 
S-=CARDS © 


The COBOL Coapiler Controt Card ($ sign in column 7} is used to 
notify the cospiter as to which options are required during the 
cospitation. If this card is omitted» SCARD LIST CHECK SINGLE 


CONTROL wilt be assused. There must be at teast one space 
hetueen each ites on the control card. The options say be in any 
order. Cotueans 1 thru 6 of the $-Card are used for sequence 


nuabers. Any nua@ber of 8-Cards may be used and Bay appear 
anywhere in the source deck. The options specified will become 
either active or inactive from that point on. The options 
available for the cOBOL Compiter Option Controt cards are as 
follows: 


ANSI Causes the conpiter to inhibit certain 
non-ANSI extensions. 


le The yarning message regarding the 
PERFORM of an independent section. 


Ze The optionat ELSE ctause for: 
AT END 


INVALID KEY 
ON SIZE ERROR 


CARD This option is for documentation only. The 


input is from the Source Language Cards or 
paper tape. | 


CHECK Causes the compiter to check for sequence 
errors and print a warning message for each 
sequence error. The CHECK option is set an 
by default at the beginning of each compiler 
but may be terminated with the NC option. 


COOE «Lists the object code following each Line of 
source code from the point of insertion. 


CONTROL Prints the $ Option Controt Cards on the 
| output Listing. The LIST option sust be on. 
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DOUBLE Causes the output listing to te printed in a 


double-spaced format. 


LIsT Creates a single~spaced output listing of the 
source Language input» with error and/cr 
warning wsessagese where required. 


LISTP 3 This option causes the coapiter to print a 
Listing of source images and to print errors 
as they occur. | 


MERGE Priaary input is from a source other than a 
card reader and may be werged with a patch 
deck in the card reader. It is assumed to be 
fron a disk fite» with a file-ID of 
COBOL W/ SOURCE» by default. If it 1s 
desirable to change the input file-ID or 
change the input device from disk to tape» 4a 
LABEL EQUATION CARD sust te used- The 
internat file name is SOURCE. The NEW optian 
may be used with the MERGE option to create a 

q new output source fille plus changes. 


NEW | Creates a NEW output source file (Cwith 
changes» if any» entered through the use cf 
the MERGE option) but does not include the 
Cormpiter Option Cards» if any» which aust be 
merged in from the card reader when cospiting 
froa disk or tape. The output file will be 
created on disk by default with the fite-IC 
of COBOLW/SOURCE. If it is desirable to 
change the output fite-ID device from disk tc 
tape» a LABEL EQUATION CARD must be usec. 
The internal file name is NEWSOQURCE. 


nO When the NO option precedes any other option 
Cexcept MERGE which cannot be terminated)» it 
wil terminate the function of that option. 


| NO DEBUG When this option is specified» the coapiter 
wid not generate monitor object code even 
though the statements are teft in the source 
progr aes. This permits the user to 

| approximate a conditionat compile for the 
oS 7 debugging facilities. 
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NO SEQ 


NOCcOP 


"*<non-nuaeric 
fiterat>* 


REF 


SEQ 


SEQ nnannnn 


SEQ *#¢nannan 


2~3 

COMPANY CONFIDENTIAL 
Bi800/B1700 COBOL COMPILER 
PeSe 2212 S324 (CC) 


Terminates the SEQ option and resumes using 
the sequence nusber in the source statement 
as it is read in. 


This option causes the compiler to generate 
current operand table entries in-line in the 
code. This option requires more memory toa 
rune but is will increase execution speed by 
approximately two per cent. 


Inserted in columns 73°80 of att following 
card images when creating a new source fite 
and/or listing. This option can be turned 
off or changed by a subsequent control card 
with the area between the quote garks 
containing biank characters. 


Provides sonitoring of datacnases specified 
in the MONETOR declaration and referenced in 
the proor ames even if their vatues are 
unchanged. This option aust be used in 
conjunction with the MONITOR statements. 


Starts re~sequencing the output listing anc 
the new source files if applicable» from the 
fast sequence nuaber read in ard itncreagents 
the sequence number by ten or by last 
incresment presented in a previous $-Option 


Card. When reseauencing starts at the 


beginning of the program source statements» 
the sequence will start with 000010. 


Starts re~secuencing the output Listing and 
new source file> if applicable, from the 
sequence nusber specified by nannann and 
increments the sequence numbers by ten. 


Starts re-sequencing the output listing and 


new source fites if applicable» from the tast 
sequence nuaber cead in and increments by the 
nuaber specified ty ¢ nannnne ¥hen 


re-sequencing starts at the beginning of the 


progras source statemsents»s the sequence wilt 


start with 000010. 
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Pe Ae ee ae ES De RN ge ee eT ATP RPT ce TOT ee eee ie eg ae ee ae ee a ee a Ne eT ee a eer ee cn tee BE AT ate The 


SANTA BARBARA PLANT 


SEC nnanann ¢nannnna 


SINGLE 


SPEC 


STACK nnannn 


SUPPRESS 
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Starts re-sequencing the output listing and 
new source filer if sppticable> from the 
sequence nueber specified by nrannnnan and 
increments by the value of tnannnn. 


Causes the output listing to be printed tn a 
single-spaced fornat. 


This option negates the CONTROL and LIST 
option and causes onty the syntax errors and 
associated source code to be orinted if 
syntax ERRORS occur. Otherwise» the CONTROL 
and LIST options remain in effect. 


this option altows the perfora stack size in 


bits to be changed. The perform stack 15s 
used to save the return address (39 bits) 
associated with a perform. The return 
address is removed froa the stack when the 
tersinat paragraph of that perform is 
reached. The defautt stack size is 12000 
bits. 


Suppresses att warning messages except 
sequence error messages. The sequence error 
message can be suppressed with the NO CHECK 
option. 


The NEW option does not have to te inctuced 
when operating with a tape or disk source 
input» thus atlowing temporary scurce 
Language alterations without creating a new 
source output file. , 
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The MERGE option without the NEW option 
atlows a disk or tape input file to be 
referenced and to have external source images 
inctuded from the card reader on the output 
Listing and in the object progras. A new 
output source file will not be created. 


Cotuans 1°76 of the Conpiler Option Controt 
Card say be teft blank when ceapiling froe 
cardse A sequence nuaber is required when 
compiling from tape or disk and the insertion 
of the $-Qption is requested within the 
source input. 
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COS8OL COMPILER LANGUAGE 


This section contains a List of ANSI (1968) COBOL elements and 
their disposition in the Surroughs COBOL Compiler Language for 
61700 systeas. Elements added as Surroughs extensions are also 
tabulated. 7 | 


Each revision of this specification will indicate these elesents 
which are currently iaplesented. Iteas which may be impleaerted 
in the future are sarked “x«2" in the Comment column. 


Table 3el»e a hist of etesents Cincluding Burroughs extensions)> 
is composed of four cotuanss from deft to right: | 


“NAME 

“LEVEL KEY Cin one or nore eetueasi 
“DISPOSITION KEY (Burroughs) 
~COMMENTS 


The tevel of each element is noted in the module sections 
described betou. 


Modules 


Fight types of acdules are listed. Each construct appears in at 
feast one sodule but say occur tn sore. 


Module names heading the columns in the center of Table 3.1 are 
abbreviated as foltaws: | 


Deleted Elesent 

Nucteus Modute 

Sequential Access Input-Output Module 
Randos Access Input-Output Module 
Sort Module 

Segmentation Module 

Library SModute 

Table Handling Module 
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LOWs MIDDLE HiGH 


Fach elenent*s tevel in each of the anodutes in which it appears 
is noted as Ls» Me or H in the center section of Table 3.1. 


u Low Level 
M Middle Level 
4 High Levelt 


Note that a construct say be in different tevets when in 
different sodules. 


Aut constructs of “Low® Level must be inctuded> "Middle" Levei 
constructs require that ail low constructs be avaitladtle; "High* 
Levelt requires that alt tow and middie constructs be available. 


| DISPOSITION 


The coluan headed “Disp” inctudes the key for the type of 
disposition. 


Disposition of an element is indicated by one of the fotitlowings 


KEY | | 
=y" = ANSI COBOL Construct Iaplesented 
“N= = ANST COBOL Construct Not Iaplenented 
“f" = Burroughs Extension to ANSI COBOL (1968) 
"Qa" = Disposition of Construct to be Specified 


If “Disposition” is "N" with no comment the element is not 
iapleaented by Burroughss if ANSI deleted the elensent this 
fact is noted in the coaszent coluan. 3 


“DELEIEOS (0) CATEGORY 


The "Deleted" category includes elements of Codasyt COBOL which 
are omitted froa the ANSI standard. The presence of deleted 
language etements in a COBOL inaplementation does not render it 
non-standard. 


No deleted elesents are included in the 81800/B81700 ccBat 
language except as indicated by comments or notes. 3 
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“Extension” Category 


Burroughs extensions to ANSI COBOL are tisted at the end of Table 
Lele | 
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BAZO0 SYSTENS 
TABLE 4.18 ANSI (1968) COBOL ELEMENT LISTING 


Construct Nase Modute Disp Comment 


INTRODUCTION “tL_rwr7f 2 2-- Y Except FMT 
Punctuation 


Language Concepts 


Characters» Words | | 
Ooe oD Acoel =CHyphen -~“jieerFerse"* = «= Yy 


Characterr Punctuation 
« ™ © ) Space eteerr fe Y 
» 3 -“t--7-7s <2 +. Y 
Cperator,» Arithmetic 
* - & tt -H-- «= «= «= » Y 
Characters Relation 
>< = eR. as ee Y 
Character» Editing 
8BO+ - CR 08 2 * $ » a eo, Y 
Currency Sign Substitution “tr7r 7 272-0 Vv 
Decimal Point Substitution Se Se ar ee eae Y 
Character Set Substitution | 
Words 
Maximum Size 30 Characters etr rr 7 = = Y 
Must Begin with Alphabetic oS ses SS Y 
No Restrictioan - + -_7s.- = Y 
; Dat a-Naaze i SS ee ee Y 
: Condit ion-Nane | “teerrerr 
: | Procedure-Nase 
: -  Non-Nuaeric Only ho SS eee OY 
i 7 Numeric Persitted “~t--* 7-2 Y 
Liter ats 
Numeric» 


Must adfow for { thru | 
at feast 18 digtts t= 2 == = y 
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Construct Naae 


Non-Nuseric » 
| 1 to at least 120 char. 
Figurative Constants 
Zero 
Zeros Zeroes 
Space 
Spaces 
High-Value 
High-Values 
Low-Vaiue 
Low~Vatues — 
Quote 
Quotes 
AQL Literal 
Special Registers 
Tatty 
Speciatl-Nases 
Reserved Words 
Key Words 
Optional words 
Connectives 
Qualifier 
Of In 
Series 
od 
Logical 
And 
Or 
And Not 
Or Not 
Level Nuabers 
01 thru 10 
1 thru 49 
1 or 2 digits 
662 88>» Levels 
77 Level 
Qualification 
None 


x = ar Pr 


za tt 


a a 
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Module Disp Comment 
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’ 
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: 
a 
a 
’ 
a 
<< 


] 
a 
é 
é 
‘ 
| 
= 


-_— = oo 72 Se y 
-“_— oso 2 @ we @ Y 
-“_— =@ =e =e le le Y 
= —_ = Y 
| 
ee ee ee ee) Y 
ow oo we wll y 
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-— =o eo eo eo @ Y 
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ee ee ee ee y 
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Construct Naae 


No Restriction 
Subscripting 
1 Levelt 
| 3 Levets 
Indexing 
1 Levelt 
3 Levels 


Identification Division 


SD Gh GD AB GD GE 4D GP GE GD OD OF 428 4 SE 4 OE EE  @ 


Progran 


Author 
Instattlation 
Date-Written 
Date-Coapited 
Security 


Reaarks 


/ Environment Division 


Configuration Section 
Source-Coagputer 
Copy Library-Nase 
Replacing Option 
Coaputer-Nasze 


Supervisor Control Option 


Memory Size Option 


Iaplermentor-Nase Option 


Object -Coaputer 
Copy Library-Nane 
Replacing Option 
Coaputer-Naaze | 
Supervisor Controt 
Memory Size 


Yords»s Characterse Modules 


Address Range 


Addres Range Serie 


oon nat 


eresarerr 
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Module Disp Comment 
ASGLT 
ee ee ee y 
-“ wo =e = 1 y 
-“_ = =o @ 4 Y 
- = « | Y 
Division Header 
- ae _- sey , ad y 
a a ee ee | y 
YY) ap oe - y 
_ 72 a = head Y 
m- aR - ™- = y 
= - bed = = y 
=a Ld -™ Cd] 28 y 
Division Header 
Pd] —_ ep = baad Y 
-_ 2s = = Y Documentn.Cnty 
--- « Y Documentn.Cnty 
“--<*+-- Y Documentn.Onty 
ee ee ee Y 
-2=--+- YY Documentn.Ontly 
Y Documentn.Gnty 
-_ 7 = 2 Y Mem.Sizes Digits 
-_—-— = = « Y Documentn.Onty 
oe ee Y Documentn-Cnty 
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Construct Nase 


Inplesaentor-Nase Option 
Implesentor-Nase Series 
Segnent-Liait Option 
Speciat-Naases 
Copy Library-Nase 
Replacing Option 


Ieplenentor-Naaze is Mnesonic 


On Status Option 
Off Status Option 
Iaplementor-Naae Series 
Currency Sign Option 
Decinat-Point Option 
Input-Output Section 
Fite Controt 
Copy Library-Naaze 
Replacing Option 
Select File-Nase 
Optionat Option 
Assign to [aplesentor-Nasze 
Iaptlesentor-Name Series 
Multiple Reels» Unit Option 
Reserve Option 
File-Linit(s) Option 
Literat thru Literal 
Literal Series 
Data~Name thru Data-Nane 
Data-Name Series 
Access Mode Option 
Sequential 
Randor 
Processing Mode Option 
Sequential 


Actual Key Option 


Syabotic Key Option 
Or LIaplementor-Nane 
Select Clause Series 


1/0 Controt 
Copy Library-Naae 


9c a 8 


meee em es 


bas 
star Sree ser es 


zits 3 


eee 


arom ire 
~ ae | 


a a | 


Modute 


| 
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Disp Comment 
T 
= Y DOocumentn.Cnly 
= Y Oocumentn-Cniy 
7 Y 
- Y 
~ Y 
- Y 
= N No Hdwr.Sw 
- N No Hdwr.Sw 
= y 
= Y 
= Y 
- Y 
= Y 
= Y 
_ Y 
= V 
= Y MCP Hdits per Sta 
= Y wCP Hdts per Std 
- Y 
: Y 
Y 
- Y 
= Y 
= Y 
- Y 
- Y 
- y 
- Y Documentn.Gnty 
- Q «*x*x(Sort Only) 
Syntax not yet 
Specified 
- Y 
M Y 
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Construct Nase 


Replacing Option 
Rerun Option 


Same Area for File-Nases 
Same Record Area 

Sage Sort Area 

Same Area Clause Series 
Mudtipte File Tape Option 


Data Division 


Section Headers 

Fite Section 

Working-Storage Section 
File Description Skeleton 
Sort File description Skeleton 
Data Description Sketeton 

Condition-Nase forsat 
Block Contains | 
‘Integer Characters 

Integer Records 

Intel to [nt-2 (Variadte) 
Filler 
Data Record(s) Oata-Nane 

Data-Name Series 
Editing Clauses 

Blank when Zero 
File Contains Integer Records 
Justified Right 

Just Adbreviation 
Label Record(s) 

Standard 

Ositted 

Data-Naae 

DatacName Series 

Levet-Nuaber 

QOL thru 10 


trrIicem Pf 


ze 4 


erm t 


aeome 
a ee 


en oe 


@e@ea 


ss oer 


rf 


© 


im iaror 
seme setaa 


PRAZES 
en ee ae 


Module 


pxreizta 


tx § 8 


ioe > ee 


S 


¢ 6 


ieee 


(2m 86 6. 


§ 684 6 #e@6 a8 4 
# # @€ $8 6 


#e¢#6#448 
# @ @ 8 
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PeSe 22 
Disp 
T 
- Y 
= Y 
= Y 
= Y 
- Y 
- Y 
~ Y 
- Y 
- Y 
- Y 
= Y 
L Y 
= 
- Yy 
= Y 
- Y 
- Y 
_ y 
“ Y 
- Y 
= Y 
- Y 
= y 
= Y 
- Y 
-~ oY 
- 
- Y 


i2 5314 (C) 


Comment 


When supported 
ty MCP 


(Sort) 


Division Header 


CSort) 


Documentn.Onty 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


Construct Nase 


1 thru 49 
1 or 2 Digits 
66% 88 Levels 
77 Level 
Occurs Integer Tiages 
Ascending» Oescending 
Dat a-Nanme 
Data-Name Series 
Ascendings Descending Series 
Indexed by Option 
Integer to Integer Times 
Depending on Option 
Picture 
Pic Abbreviation 
Character String 
Size Liait 30 
Data Character Syabdots 


| A xX 9 , 
Operational Syabols 
S$ Vv P 


Replacement or Float Chars. 
$ *¢ *= 2? * 
Currency Sign Substitution 
Fixed Insertion Characters 
08 » « $ ¢ = 08 CR 
Decinai Point Substitution 
Record Contains Clause 
Recording Mode Clause 
Redefines Clause 
Un-Nested | 
No Restriction 
Renames Clause 
Synchronized Clause 
Syne Abbreviated 
Type [s 
Usage I[s 
Conput ational 
Comp Abbreviation 
CMP Abbreviaticn 


ae 


See. 


‘er Ser rf fF + 
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Module 


Q A 


S 


G 


PeSe 


2212 S3L4 (C) 


Disp Comment 


<<<x2z222 <<<<< 


<a 


=< 


< << 


zx CIndextng) 
k&xe (Indexing) 
zx*«x (Indexing) 


Documentn-Gnily 


Left» Right 


Implies 4 Bit 


BURROUGHS CORPORATION 
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Construct Nase 


Coaputational<-N 


Disolay 


Index 
Value Is 
Literat 
Literat Series 
Literal thru Literal 
Literat Range Series 
Value Of 
DatacName is Literal 
Data-Naae is Literal 
Series 
OatasName is Data-Name 


Procedure Division 


Dectarative Delisiters 
Dectaratives | 
> End Dectaratives 
Arithmetic Expressions 
Arithmetic Operators 
Conditions 
Logicat Operators 
Relation Conditicns 
Relational Operators 
(Not) Greater Than 


(Not) > 

(Not) Less Than 
{Not) < 

(Not) Equat To 
(Not) = 


Abbreviation t 
Abbreviation 2 
Abbreviation 3 


be a Sm A oie «A am “A a a x 


sitar 


Module 
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Disp Comment 


- YY Acceptable: 
Computationat-1 
Comput ationai-3 
(See Extensions) 

- Y Impttes &-Bit 
Display Implied 
if usage omitted 


L Y 
- Y 
= y 
- Y 
= Y 
me Y 
- Y 
- Y 0, Actual Key 


Division Header 


= Y 
= Y 
= Y 
= Y 
= Y 


' 
me ek el ee ME ee 
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Construct Nagze 


Conparison 
Numeric Operands 
Non-Nueeric Operands 
Equal Size 
Unequat Size 
 Index-Nanes - Data Iteas 
Sign Condition 
Not Option 
Class Condition 
Not Option 
Condition-Naaze Condition. 
Not Option 
Switch Status Condition 


Arithmetic Operand Size Lisit 


18 Digits 


Accept [Identifier 


CNaxiaua of one Fixed Unit) 
Each Accept Statesent 

No Restriction 

Fraa Option 


Add identifiers Liter at 


(To or Giving Required) 
No Restriction 

Identifier.» Literal Series 
To Identifier 

To Identifier Series 
Giving Identifier 


Rounded Optian 


Size Error Option 
Corresponding Forsat 


Aiter Procedure Nare 


Procedure-Nase Series 


Clase Fite-Naae 


Fitle-Nane Series 

Reet Option 

Unit Option 

No Rewinds Lock Option 


Coapute Identifier 


Rounded Option 


Module 


DN@A 
-~je-= 
-~{- «= 
-“H-- 
- ft. = 
=) Ne Oe 
- H- «- 
-~{-- «= 
- ts - 
-{-e 
- HH - «- 
- 4#<- « 
-~{- 
- H- - 
-~j-e- 
- te 
-~{-« 
-{--.- 
-~ { <- 
-H- @- 
-j{<-.} 
- H - « 
-~_-{t. 
-- HH 
“ee { - 
-~ = H - 
-- HH 
- HH - @« 


e@#teteett. 


@eee#e&éteet#et#téo44 
#soe64é# 6? 64 @ @ @ @ @ @ 6 8 
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arm 4 6 


PeSe 


¢ 


a. ee 2. Tee eT eT 


= 


~< 


oT 2 


a 


ree. ee ee ee: 


Disp Comment 


See *Siaulated 
Switches” Exten 


Up to 125 Digit 
Composite Totai 


DE Reape ih a a 8 eg EB REE os Se eR CS Re LS SN EER a 


int 
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Construct Nase 


= Choice 
Identifiers» Literal 
Acithmetic Exponent 
Size Error Optior 
Copy Library Nane 
Replacing Option 
Display Literal» Identifier 
(Truncation at fixed 
Unit Size) 
No Restriction 
Literat» Identifiers Series 
Upon Option | 
Divide Identifier Literal 
Into Identifier 
By Identifier 
Giving [denitifier 
Rounded Option 
Resainder Option 
Size Error Option 
Enter Statesent 
Examine Statesent 
Exit Statenent 
Go to Procedure-Nazse 
Gpticnat Procedure-Nane 
Depending on Option 
If Condition 
Then Option 
Statement» Next Statement 
Nested Stateszents (True) 
Move Identifier Literal 
To Identifier 
To Identifier Series 
Corresponding Identifiers 


zereau,e mriti_zts x= 


= 


Ceres 


Dae 2 a ae a oe oh 


zee am i 


Module 


PeSe2 2212 


Disp 


Cet < «< 


ri... 2. 2 7 2. 7. ff fe. * 2 2: 


Se o 


<< uf 
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Conment 


zl 
val 
oa 
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Construct Nase 


Multiply Identifiers Literal 
By Identifier 
Giving Identifier 
Rounded Option 
Size Error Option 
Note Sentences Paragraph 
Open [Input File-Nase 
Reversed Option 
No Rewind Opticn 
Output FitecNasze 
No Rewind Option 
Input*Gutput File-Nase 
I/0 Fite-Nane 
File-Nanme Series 
Perfora Procedure-Nage 
Theu Option 
Format 2 
Forsaat 3 
Format 4 
Read File-Nage at End 
Into Option 
Invatid Key 
Release Record-Nane 
Fron Option 
Return Fite-Nase 
Into Option 
Search Statesent 
Seek Fite-Naae 
Key Conversion | 
Set Index-Nagmee Identifier To.. 


Index-Names identifier Series. 


Fforsaat 2 


Sort Stat eaent 


Basic Sorting 
Extended Sorting 
Stop Statensent 
Subtract Literal» Identifier 
 Literats Identifier Series 
Froa Series 
Giving Identifier 
Rounded Option 


#8 6 


@etovoeOtetets 


pert’itrrrerere ii 


rereaire oe | 


@eermrmrertrrraee s 
@#eeoms 


aimee 


i 
oe oe Se ee 


ne oe oe 


Module 


a’ a oe ee Se ee ee 


COMPANY 


PeSe 


ee ee ee ee 


Disp 


<<< x 


Pe an aa ee 2 ee ee 2 eee ee ee eee 22 2 2 ee 
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Comment 


(Sort) 
(Sort) 
CSort) 
CSort) 
#*«x (Indexing) 


(Sort) 
CSort) 
CSort) 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


Construct 


Size Error Option 
Corresponding Forsat 
Use 
€eror Procedure 
File-Nane | 
File-Name Series 
Input Choice 
OQutput Choice 
Input-Output Choice 
1/0 Choice 
Label Procedure 
Befores After Choice 


Beginnings Ending Option 


File Option 
Reel. Unit Option 
FilecNanze Choice 
File-Nasze Series 
Input Choice 
Output Choice 
1/0 Choice 


Key Conversion Forauta 


Write Record-Namse 
Froa Option 
Advancing Option 
Invalid Key Forsat 


Segarentation 
Priority Nusbers 


Fixed Portion Priorities 0-49 


Must be Contiguous 
No Restriction 


Independent Segments 50-99 


Must be Contiguous 
No Restriction 
Segaent Lisit 


Library 
Copy Library Nase 
Replacing Option 


a 


emoermrseezrraitrtticz 


@eoreornintioa st 


» Zz ixcrrict 
= mzixzdrix 


sai trricdnitea 


<4 


soar xezEz 


Module 


PeSe 2212 


Disp 


a eo 


é 
a 


" 
Kaeser K KK KC XK 


: 
ie ee en en ee | 
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Comment 


Documentn. Cniy 
MCP Altows 
Oniy 1 Access 


No Labets oan OF 
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Construct Nase 


Reference Forsat 
Representatioan 
Sequence Nuabers 
Continuation of Lines 
Non-Nuseric Literals 
Words and Nuserais 
Fornats | 
Civision Header 
Section Header | 
Paragraph-Name and 
Paragraphs _ 
Data Division Entries 
Declaratives 


Reserved vords 


61800/B1700 
P.S. 2212 
Module Disp 
ASGtULT 
Se a en ee) Y 
ee ee ee y 
ee ee ee ee) +f 
Se ee ee y 
ee ee Y 
Ce er ee | y 
ee ee y 
a 
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TABLE 4.2 BURROUGHS EXTENSIONS TO ANSI 68 COBOL 


Name or Function Comment 
FILE CONTAINS May be dectared: <integer> 6Y 
7 <integer> RECORDS 
CLOSE | Supports the fotloning options: 
, PURGE 
RELEASE 
CRUNCH 
DATE | Formatted as: yyddd 
TODAYS~“DATE Formatted as mmnddyy 
TODAYS~NAME 
MONITOR Supports monitoring of: 
: | | DATA"NAMES 
LABELS either: ALL o¢ 
DEPENDING 
OPEN Atlowed with: LOCK 
| | | LOCK ACCESS 
PUNCH 
PRINT128 
INTERPRET 
STACKERS 
I/G EXTEND 


Siwulated Hardnare Switches 
TIME 

TRACE 

YUndigit Literals 

Ze 


* in (Col 7) Card Comment Card 
sin (Cot 7) Card ~~ Page Over flow 
$ in (Col 7) Card | Compiter Options 
USAGE [5 Supports: ASCII 


CMP-3 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


Name or Function 


PORWR OED OSE Ge & 


RECORDING MODE 


Data Segunent-Linit 
RE CEF INES 


Inter-Prograrm Cosagunication 
DUMP 
Non-Nuseric Literals: 


Adjacent Quote Marks 


1/0 CONTROL 
DIVIDE 
SORT 


GQ 
MOVE 


MICR/OCR 
DATE-COMPELED 


space 
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Comment 
Supports: ASCII 


1S <literat>: for data segmen- 
tation. , 


Cperand can te originat area or 
fast redefined area. 


LAL constructs. 


Ywo adjacent quote marks = a 
quote in the string 


Supports: APPLY option. 
Supports: MOD option 


Adtows the following options: 
INPLACE 


USING supports: 
| LOCK | 

PURGE 

RELEASE 
GIVING supports: 

LOCK 

RELEASE 


4a@ owed without T0 


Gives truncation warning nes- 
sage on error. 


444 constructs. 
[Inserts Time 


Not required fotflowing periods» 
- Commase or semi~cotons. 


BURROUGHS CORPORATION 
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Name or Function. 


WRITE TO 


Data Management 
J and « Signs 
AT ENDs SIZE ERROR» INVALID KEY 


WHEN 


Abbreviations 


PC 
cup 
CMP@-1 
CNP@-3 
VA 

Oc 

SY 

JS 

BZ 
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Comment 
Supports: ERROR 

AUXILIARY 

STACKER 


Att constructs. 


Ait permit a conditionat state- 
ment which associates an ELSE 
with these conditions. 


Allows a statement instead of an 
imperative statement when used 
With SEARCH» thus WHEN may be a 
prooer terminator of an IF 
Statement. | 


Ww 


Ix-1 


BURROUGHS CORPORATION CCMPANY CONF ICENTIAL 

COMPUTER SYSTEMS GROUP B1800/B81700 CCBOL COMPILER 

SANTA BARBARA PLANT PeSe 2212 S314 CC) 
INDEX 


S$-CARDS 2-1 

"DELETED" (C0) CATEGORY 3-2 

“Extension” Category 3-3 

B1700 SYSTEMS 3-1 

COBOL COMPILER LANGUAGE 3-1 

DISPOSITION 3-2 

GENERAL DESCRIPTION 1-1 

LOW>s MIOOLE HIGH 3-2 

Modules 31 | 

RELATED PUBLICATIONS i-t 

STRATEGY OF COMPILATION i-1 

TABLE 3.1 ANSI (1968) COBOL ELEMENT LISTING 3-1 
TABLE 3.2 BURROUGHS EXTENSIONS TO ANSI 68 COBOL 3-13 


